object SubjectInitDM: TSubjectInitDM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  OnDestroy = DataModuleDestroy
  Height = 325
  Width = 494
  object spp_UpdateVouInit: TUniStoredProc
    StoredProcName = 'p_voucherinit'
    Connection = MainDM.UniConn
    Left = 40
    Top = 124
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RETURN_VALUE'
        ParamType = ptResult
        Value = 0
      end
      item
        DataType = ftString
        Name = 'vouyearmonth'
        ParamType = ptInput
        Size = 6
        Value = nil
      end
      item
        DataType = ftDateTime
        Name = 'bdate'
        ParamType = ptInput
        Value = nil
      end
      item
        DataType = ftString
        Name = 'vouyearmonth1'
        ParamType = ptInput
        Size = 6
        Value = nil
      end
      item
        DataType = ftDateTime
        Name = 'bdate1'
        ParamType = ptInput
        Value = nil
      end
      item
        DataType = ftInteger
        Name = 'filid'
        ParamType = ptInput
        Value = nil
      end>
    CommandStoredProcName = 'p_voucherinit'
  end
  object qrySubjectInitD: TUniQuery
    Connection = MainDM.UniConn
    SQL.Strings = (
      
        'select S.SubjectID SubjectID,S.SubCode,S.SubName,s.fullsubname,S' +
        '.IsDebit,S.MoneyID,'
      '  isnull(A.filid,:filid) as filid,'
      
        '  S.DoDept,S.doProject,S.doTrader,S.doQty,S.doEmp,S.doproduct,S.' +
        'SpecialCode,'
      '  C.*,'
      '  p.Code + p.Name p_Name,'
      '  T.Code + T.Name TraderName,'
      '  D.ed_deptcd + D.ed_deptnm DeptName,'
      '  pr.Code + pr.Name ProjectName,'
      '  E.em_Code + E.em_Name EmpName,M.Rate'
      'from tfb_voucherdtl  C'
      
        ' right outer join tfb_voucher A on C.voucherid=A.voucherid and A' +
        '.filid=:m_filid'
      
        ' right outer join tfd_Subject S  on C.SubjectID=S.SubjectID and ' +
        'C.voucherid<0'
      ' inner join td_Money   M  on M.MoneyID=S.MoneyID'
      ' left outer join td_product p on p.p_id=c.productid'
      ' left outer join td_Trader T   on T.TraderID=C.TraderID'
      ' left outer join td_dept D      on D.ed_DeptID=C.DeptID'
      ' left outer join tfd_Project Pr on Pr.id=C.ProjectID'
      ' left outer join td_Empmaster E on E.em_EmployeeID=C.EmpID'
      ' where S.subnode=1 and (s.pause<>1) '
      ' order by S.SubjectID,C.borderno')
    Left = 40
    Top = 48
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'filid'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'm_filid'
        Value = nil
      end>
  end
  object qryUpdate: TUniQuery
    Connection = MainDM.UniConn
    SQL.Strings = (
      'insert into tfb_voucherdtl'
      
        '  (voucherid, bno, DEPTID, PROJECTID, balanceid, SUBJECTID,money' +
        'id,exchrate,'
      'TRADERID,  productid, EMPID, BORDERNO, DODEBIT, QUANTITY,'
      '   BALDATE, DCDEBITAMT, DCCREDITAMT, DEBITAMT, CREDITAMT)'
      'values'
      
        '  (:voucherid, :bno, :DEPTID, :PROJECTID, :balanceid,:SUBJECTID,' +
        ':Moneyid,:exchrate,'
      ':TRADERID,  :productid, :EMPID, :BORDERNO, :DODEBIT, :QUANTITY,'
      '   :BALDATE, :DCDEBITAMT, :DCCREDITAMT, :DEBITAMT, :CREDITAMT)')
    Left = 48
    Top = 176
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'voucherid'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'bno'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'DEPTID'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'PROJECTID'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'balanceid'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'SUBJECTID'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'Moneyid'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'exchrate'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'TRADERID'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'productid'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'EMPID'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'BORDERNO'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'DODEBIT'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'QUANTITY'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'BALDATE'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'DCDEBITAMT'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'DCCREDITAMT'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'DEBITAMT'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'CREDITAMT'
        Value = nil
      end>
  end
  object cdsSubSum: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 196
    Top = 136
    object cdsSubSumSubjectID: TIntegerField
      FieldName = 'SubjectID'
    end
    object cdsSubSumSubCode: TStringField
      DisplayLabel = #31185#30446#20195#30721
      FieldName = 'SubCode'
      Size = 40
    end
    object cdsSubSumSubName: TStringField
      DisplayLabel = #31185#30446#21517#31216
      FieldName = 'SubName'
      Size = 40
    end
    object cdsSubSumBBDebit: TFloatField
      DisplayLabel = #20511#26041
      FieldName = 'BBDebit'
      DisplayFormat = ',0.00'
    end
    object cdsSubSumBBCredit: TFloatField
      DisplayLabel = #36151#26041
      FieldName = 'BBCredit'
      DisplayFormat = ',0.00'
    end
    object cdsSubSumDebit: TFloatField
      DisplayLabel = #20511#26041
      FieldName = 'Debit'
      DisplayFormat = ',0.00'
    end
    object cdsSubSumCredit: TFloatField
      DisplayLabel = #36135#26041
      FieldName = 'Credit'
      DisplayFormat = ',0.00'
    end
    object cdsSubSumBDebit: TFloatField
      DisplayLabel = #20511#26041
      FieldName = 'BDebit'
      DisplayFormat = ',0.00'
    end
    object cdsSubSumBCredit: TFloatField
      DisplayLabel = #36151#26041
      FieldName = 'BCredit'
      DisplayFormat = ',0.00'
    end
    object cdsSubSumisdebit: TBooleanField
      FieldName = 'isdebit'
    end
    object cdsSubSumsubnode: TBooleanField
      FieldName = 'subnode'
    end
  end
  object qryAllSubject: TUniQuery
    Connection = MainDM.UniConn
    SQL.Strings = (
      
        'select subjectid,subcode,subname,ISDEBIT, subnode from tfd_subje' +
        'ct'
      'where pause<>1 order by subcode')
    Left = 128
    Top = 136
  end
  object dsSubjectInitM: TDataSource
    DataSet = cdsSubInitM
    Left = 288
    Top = 8
  end
  object cdsFilSubjectInitD: TClientDataSet
    Aggregates = <>
    AggregatesActive = True
    FieldDefs = <>
    IndexDefs = <
      item
        Name = 'idxSubjectID'
        Fields = 'SubjectID'
      end>
    IndexName = 'idxSubjectID'
    PacketRecords = 0
    Params = <>
    ProviderName = 'dspFilSubjectInitD'
    StoreDefs = True
    Left = 200
    Top = 236
  end
  object cdsFilSubjectInitM: TClientDataSet
    Aggregates = <>
    FieldDefs = <>
    IndexDefs = <>
    FetchOnDemand = False
    Params = <>
    StoreDefs = True
    Left = 320
    Top = 236
  end
  object qryFilSubjectInitD: TUniQuery
    Connection = MainDM.UniConn
    SQL.Strings = (
      
        'select S.SubjectID SubjectID,S.SubCode,S.SubName,s.fullsubname,S' +
        '.IsDebit,S.MoneyID,'
      
        '  S.DoDept,S.DoProject,S.DoTrader,S.DoQty,S.DoEmp,S.DoProduct,S.' +
        'SpecialCode,'
      '  C.*'
      '  from v_allfilvoucherdtl c'
      
        'right outer join tfd_Subject S   on C.SubjectID=S.SubjectID and ' +
        ' S.subnode=1 and (s.pause<>1)'
      'order by c.subjectid,c.borderno')
    Left = 44
    Top = 236
  end
  object dspFilSubjectInitD: TDataSetProvider
    DataSet = qryFilSubjectInitD
    Left = 124
    Top = 224
  end
  object cdsSubInitD: TClientDataSet
    Aggregates = <>
    FieldDefs = <>
    IndexDefs = <
      item
        Name = 'idxSubjectID'
        Fields = 'subjectid'
      end>
    IndexName = 'idxSubjectID'
    MasterSource = dsSubjectInitM
    PacketRecords = 0
    Params = <>
    StoreDefs = True
    Left = 200
    Top = 64
    object cdsSubInitDvoucherid: TIntegerField
      FieldName = 'voucherid'
    end
    object cdsSubInitDbno: TIntegerField
      FieldName = 'bno'
    end
    object cdsSubInitDdeptid: TIntegerField
      FieldName = 'deptid'
    end
    object cdsSubInitDprojectid: TIntegerField
      FieldName = 'projectid'
    end
    object cdsSubInitDbalanceid: TIntegerField
      FieldName = 'balanceid'
    end
    object cdsSubInitDsubjectid: TIntegerField
      FieldName = 'subjectid'
    end
    object cdsSubInitDtraderid: TIntegerField
      FieldName = 'traderid'
    end
    object cdsSubInitDproductid: TIntegerField
      FieldName = 'productid'
    end
    object cdsSubInitDempid: TIntegerField
      FieldName = 'empid'
    end
    object cdsSubInitDborderno: TIntegerField
      FieldName = 'borderno'
    end
    object cdsSubInitDexplan: TStringField
      FieldName = 'explan'
      Size = 200
    end
    object cdsSubInitDdodebit: TBooleanField
      FieldName = 'dodebit'
    end
    object cdsSubInitDexchrate: TFloatField
      FieldName = 'exchrate'
    end
    object cdsSubInitDquantity: TFloatField
      FieldName = 'quantity'
    end
    object cdsSubInitDprice: TFloatField
      FieldName = 'price'
    end
    object cdsSubInitDbaldate: TDateTimeField
      FieldName = 'baldate'
    end
    object cdsSubInitDbalbcode: TStringField
      FieldName = 'balbcode'
      Size = 40
    end
    object cdsSubInitDreadonly: TBooleanField
      FieldName = 'readonly'
    end
    object cdsSubInitDbaled: TBooleanField
      FieldName = 'baled'
    end
    object cdsSubInitDdcdebit: TFloatField
      FieldName = 'dcdebitamt'
    end
    object cdsSubInitDdccredit: TFloatField
      FieldName = 'dccreditamt'
    end
    object cdsSubInitDdebit: TFloatField
      FieldName = 'debitamt'
    end
    object cdsSubInitDcredit: TFloatField
      FieldName = 'creditamt'
    end
    object cdsSubInitDsubcode: TStringField
      FieldName = 'subcode'
      Size = 40
    end
    object cdsSubInitDsubname: TStringField
      FieldName = 'subname'
      Size = 60
    end
    object cdsSubInitDfullsubname: TStringField
      FieldName = 'fullsubname'
      Size = 200
    end
    object cdsSubInitDisdebit: TBooleanField
      FieldName = 'isdebit'
      OnGetText = cdsSubInitDisdebitGetText
    end
    object cdsSubInitDp_name: TStringField
      FieldName = 'p_name'
      Size = 60
    end
    object cdsSubInitDtradername: TStringField
      FieldName = 'tradername'
      Size = 60
    end
    object cdsSubInitDdeptname: TStringField
      FieldName = 'deptname'
      Size = 60
    end
    object cdsSubInitDprojectname: TStringField
      FieldName = 'projectname'
      Size = 60
    end
    object cdsSubInitDempname: TStringField
      FieldName = 'empname'
      Size = 60
    end
    object cdsSubInitDsubjectid_1: TIntegerField
      FieldName = 'subjectid_1'
    end
    object cdsSubInitDrate: TFloatField
      FieldName = 'rate'
    end
    object cdsSubInitDmoneyid: TIntegerField
      FieldName = 'moneyid'
    end
    object cdsSubInitDunclearamt: TFloatField
      FieldName = 'unclearamt'
    end
    object cdsSubInitDdodept: TBooleanField
      FieldName = 'dodept'
    end
    object cdsSubInitDdoproject: TBooleanField
      FieldName = 'doproject'
    end
    object cdsSubInitDdotrader: TBooleanField
      FieldName = 'dotrader'
    end
    object cdsSubInitDdoqty: TBooleanField
      FieldName = 'doqty'
    end
    object cdsSubInitDdoemp: TBooleanField
      FieldName = 'doemp'
    end
    object cdsSubInitDdoproduct: TBooleanField
      FieldName = 'doproduct'
    end
    object cdsSubInitDspecialcode: TIntegerField
      FieldName = 'specialcode'
    end
    object cdsSubInitDfilid: TIntegerField
      FieldName = 'filid'
    end
    object cdsSubInitD_aidflag: TSmallintField
      FieldName = '_aidflag'
    end
    object cdsSubInitD_masterflag: TSmallintField
      FieldName = '_masterflag'
    end
    object cdsSubInitD_init: TFloatField
      FieldName = '_init'
    end
    object cdsSubInitD_dcinit: TFloatField
      FieldName = '_dcinit'
    end
    object cdsSubInitD_initqty: TFloatField
      FieldName = '_initqty'
    end
    object cdsSubInitD_creditqty: TFloatField
      FieldName = '_creditqty'
    end
    object cdsSubInitD_debitqty: TFloatField
      FieldName = '_debitqty'
    end
    object cdsSubInitD_balance: TFloatField
      FieldName = '_balance'
    end
    object cdsSubInitD_dcbalance: TFloatField
      FieldName = '_dcbalance'
    end
    object cdsSubInitD_balanceqty: TFloatField
      FieldName = '_balanceqty'
    end
    object cdsSubInitDhappen: TFloatField
      FieldName = 'happen'
    end
    object cdsSubInitDbedebit: TSmallintField
      FieldName = 'bedebit'
    end
    object cdsSubInitD_SumDCInit: TAggregateField
      FieldName = '_SumDCInit'
      Active = True
      currency = True
      DisplayName = ''
      DisplayFormat = '#0.00'
      Expression = 'Sum(_DCInit)'
      GroupingLevel = 1
      IndexName = 'idxSubjectID'
    end
    object cdsSubInitD_SumInit: TAggregateField
      FieldName = '_SumInit'
      Active = True
      currency = True
      DisplayName = ''
      DisplayFormat = '#0.00'
      Expression = 'Sum(_Init)'
      GroupingLevel = 1
      IndexName = 'idxSubjectID'
    end
    object cdsSubInitD_SumInitQty: TAggregateField
      FieldName = '_SumInitQty'
      Active = True
      currency = True
      DisplayName = ''
      DisplayFormat = '#0.00'
      Expression = 'Sum(_InitQty)'
      GroupingLevel = 1
      IndexName = 'idxSubjectID'
    end
    object cdsSubInitD_SumDCDebit: TAggregateField
      FieldName = '_SumDCDebit'
      Active = True
      currency = True
      DisplayName = ''
      DisplayFormat = '#0.00'
      Expression = 'Sum(DCDebitamt)'
      GroupingLevel = 1
      IndexName = 'idxSubjectID'
    end
    object cdsSubInitD_SumDebit: TAggregateField
      FieldName = '_SumDebit'
      Active = True
      currency = True
      DisplayName = ''
      DisplayFormat = '#0.00'
      Expression = 'Sum(Debitamt)'
      GroupingLevel = 1
      IndexName = 'idxSubjectID'
    end
    object cdsSubInitD_SumDebitQty: TAggregateField
      FieldName = '_SumDebitQty'
      Active = True
      currency = True
      DisplayName = ''
      DisplayFormat = '#0.00'
      Expression = 'Sum(_DebitQty)'
      GroupingLevel = 1
      IndexName = 'idxSubjectID'
    end
    object cdsSubInitD_SumDcCredit: TAggregateField
      FieldName = '_SumDcCredit'
      Active = True
      currency = True
      DisplayName = ''
      DisplayFormat = '#0.00'
      Expression = 'Sum(DcCreditamt)'
      GroupingLevel = 1
      IndexName = 'idxSubjectID'
    end
    object cdsSubInitD_SumCredit: TAggregateField
      FieldName = '_SumCredit'
      Active = True
      currency = True
      DisplayName = ''
      DisplayFormat = '#0.00'
      Expression = 'Sum(Creditamt)'
      GroupingLevel = 1
      IndexName = 'idxSubjectID'
    end
    object cdsSubInitD_SumCreditQty: TAggregateField
      FieldName = '_SumCreditQty'
      Active = True
      currency = True
      DisplayName = ''
      DisplayFormat = '#0.00'
      Expression = 'Sum(_CreditQty)'
      GroupingLevel = 1
      IndexName = 'idxSubjectID'
    end
    object cdsSubInitD_SumDcBalance: TAggregateField
      FieldName = '_SumDcBalance'
      Active = True
      currency = True
      DisplayName = ''
      DisplayFormat = '#0.00'
      Expression = 'Sum(_DcBalance)'
      GroupingLevel = 1
      IndexName = 'idxSubjectID'
    end
    object cdsSubInitD_SumBalance: TAggregateField
      FieldName = '_SumBalance'
      Active = True
      currency = True
      DisplayName = ''
      DisplayFormat = '#0.00'
      Expression = 'Sum(_Balance)'
      GroupingLevel = 1
      IndexName = 'idxSubjectID'
    end
    object cdsSubInitD_SumBalanceQty: TAggregateField
      FieldName = '_SumBalanceQty'
      Active = True
      currency = True
      DisplayName = ''
      DisplayFormat = '#0.00'
      Expression = 'Sum(_BalanceQty)'
      GroupingLevel = 1
      IndexName = 'idxSubjectID'
    end
    object cdsSubInitD_SumHappen: TAggregateField
      FieldName = '_SumHappen'
      Active = True
      currency = True
      DisplayName = ''
      DisplayFormat = '#0.00'
      Expression = 'Sum(Happen)'
      GroupingLevel = 1
      IndexName = 'idxSubjectID'
    end
    object cdsSubInitD_SumQuantity: TAggregateField
      FieldName = '_SumQuantity'
      Active = True
      currency = True
      DisplayName = ''
      DisplayFormat = '#0.00'
      Expression = 'Sum(Quantity)'
      GroupingLevel = 1
      IndexName = 'idxSubjectID'
    end
  end
  object cdsSubInitM: TClientDataSet
    Aggregates = <>
    AutoCalcFields = False
    FieldDefs = <>
    IndexDefs = <>
    FetchOnDemand = False
    Params = <>
    StoreDefs = True
    AfterPost = cdsSubInitMAfterPost
    Left = 196
    Top = 16
    object cdsSubInitMvoucherid: TIntegerField
      FieldName = 'voucherid'
    end
    object cdsSubInitMbno: TIntegerField
      FieldName = 'bno'
    end
    object cdsSubInitMdeptid: TIntegerField
      FieldName = 'deptid'
    end
    object cdsSubInitMprojectid: TIntegerField
      FieldName = 'projectid'
    end
    object cdsSubInitMbalanceid: TIntegerField
      FieldName = 'balanceid'
    end
    object cdsSubInitMsubjectid: TIntegerField
      FieldName = 'subjectid'
    end
    object cdsSubInitMtraderid: TIntegerField
      FieldName = 'traderid'
    end
    object cdsSubInitMproductid: TIntegerField
      FieldName = 'productid'
    end
    object cdsSubInitMempid: TIntegerField
      FieldName = 'empid'
    end
    object cdsSubInitMborderno: TIntegerField
      FieldName = 'borderno'
    end
    object cdsSubInitMexplan: TStringField
      FieldName = 'explan'
      Size = 200
    end
    object cdsSubInitMdodebit: TBooleanField
      FieldName = 'dodebit'
    end
    object cdsSubInitMexchrate: TFloatField
      FieldName = 'exchrate'
    end
    object cdsSubInitMquantity: TFloatField
      FieldName = 'quantity'
    end
    object cdsSubInitMprice: TFloatField
      FieldName = 'price'
    end
    object cdsSubInitMbaldate: TDateTimeField
      FieldName = 'baldate'
    end
    object cdsSubInitMbalbcode: TStringField
      FieldName = 'balbcode'
      Size = 40
    end
    object cdsSubInitMreadonly: TBooleanField
      FieldName = 'readonly'
    end
    object cdsSubInitMbaled: TBooleanField
      FieldName = 'baled'
    end
    object cdsSubInitMdcdebit: TFloatField
      FieldName = 'dcdebitamt'
    end
    object cdsSubInitMdccredit: TFloatField
      FieldName = 'dccreditamt'
    end
    object cdsSubInitMdebit: TFloatField
      FieldName = 'debitamt'
    end
    object cdsSubInitMcredit: TFloatField
      FieldName = 'creditamt'
    end
    object cdsSubInitMsubcode: TStringField
      FieldName = 'subcode'
      Size = 40
    end
    object cdsSubInitMsubname: TStringField
      FieldName = 'subname'
      Size = 60
    end
    object cdsSubInitMfullsubname: TStringField
      FieldName = 'fullsubname'
      Size = 200
    end
    object cdsSubInitMbedebit: TSmallintField
      FieldName = 'bedebit'
    end
    object cdsSubInitMisdebit: TBooleanField
      FieldName = 'isdebit'
      OnGetText = cdsSubInitDisdebitGetText
    end
    object cdsSubInitMp_name: TStringField
      FieldName = 'p_name'
      Size = 60
    end
    object cdsSubInitMtradername: TStringField
      FieldName = 'tradername'
      Size = 60
    end
    object cdsSubInitMdeptname: TStringField
      FieldName = 'deptname'
      Size = 60
    end
    object cdsSubInitMprojectname: TStringField
      FieldName = 'projectname'
      Size = 60
    end
    object cdsSubInitMempname: TStringField
      FieldName = 'empname'
      Size = 60
    end
    object cdsSubInitMsubjectid_1: TIntegerField
      FieldName = 'subjectid_1'
    end
    object cdsSubInitMrate: TFloatField
      FieldName = 'rate'
    end
    object cdsSubInitMmoneyid: TIntegerField
      FieldName = 'moneyid'
    end
    object cdsSubInitMunclearamt: TFloatField
      FieldName = 'unclearamt'
    end
    object cdsSubInitMdodept: TBooleanField
      FieldName = 'dodept'
    end
    object cdsSubInitMdoproject: TBooleanField
      FieldName = 'doproject'
    end
    object cdsSubInitMdotrader: TBooleanField
      FieldName = 'dotrader'
    end
    object cdsSubInitMdoqty: TBooleanField
      FieldName = 'doqty'
    end
    object cdsSubInitMdoemp: TBooleanField
      FieldName = 'doemp'
    end
    object cdsSubInitMdoproduct: TBooleanField
      FieldName = 'doproduct'
    end
    object cdsSubInitMspecialcode: TIntegerField
      FieldName = 'specialcode'
    end
    object cdsSubInitMfilid: TIntegerField
      FieldName = 'filid'
    end
    object cdsSubInitM_aidflag: TSmallintField
      FieldName = '_aidflag'
    end
    object cdsSubInitM_masterflag: TSmallintField
      FieldName = '_masterflag'
    end
    object cdsSubInitM_init: TFloatField
      FieldName = '_init'
    end
    object cdsSubInitM_dcinit: TFloatField
      FieldName = '_dcinit'
    end
    object cdsSubInitM_initqty: TFloatField
      FieldName = '_initqty'
    end
    object cdsSubInitM_creditqty: TFloatField
      FieldName = '_creditqty'
    end
    object cdsSubInitM_debitqty: TFloatField
      FieldName = '_debitqty'
    end
    object cdsSubInitM_balance: TFloatField
      FieldName = '_balance'
    end
    object cdsSubInitM_dcbalance: TFloatField
      FieldName = '_dcbalance'
    end
    object cdsSubInitM_balanceqty: TFloatField
      FieldName = '_balanceqty'
    end
    object cdsSubInitMhappen: TFloatField
      FieldName = 'happen'
    end
  end
  object qryBalanCheck: TUniQuery
    Connection = MainDM.UniConn
    Left = 408
    Top = 232
  end
  object qryTemp: TUniQuery
    Connection = MainDM.UniConn
    Left = 352
    Top = 144
  end
end
